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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del C16 pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle¬ 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti¬ 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen¬ 
sione approfondita e da consigli per un corret¬ 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega¬ 
to alla confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub¬ 
blicata all’interno del fascicolo. 

La Jackson Soft Compilation, è una pubblica¬ 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vostra 
raccolta di programmi. 
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DARK TOWER 

Siamo sicuri che questo bellissimo gioco vi 
farà trascorrere delle ore piacevoli in 
compagnia del vostro Commodore 16. Dark 
Tower è un gioco tipo “arcade” con ben 27 
schermi diversi. Inizia con alcune videate 
introduttive relativamente facili e poi, man 
mano, diventa più difficile e complesso. 
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Ogni situazione offre al gio¬ 
catore una sfida diversa e ri¬ 
chiede un’attenta riflessio¬ 
ne e la massima concentra¬ 
zione. 

Siete immerso in un mondo 
di favola: il guardiano della 
Torre Oscura vi ha catturato 
e, dopo avervi trasformato 
in un essere tondeggiante ed 
elastico, vi ha rinchiuso in 
una delle stanze della torre. 
L’unico mezzo che vi resta 
per uscire da questa tragica 
situazione è di raccogliere 
tutti i gioielli sparsi nelle 
varie stanze e mandarli al 
guardiano. Quando sarete 
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riuscito ad assolvere questo 
difficile compito, avrete ac¬ 
cesso alla stanza finale, do¬ 
ve vi saranno svelati i segre¬ 
ti della torre. 

Naturalmente, prendere tut¬ 
ti i gioielli non è un compito 
da poco. 

Decine di mostri, dalle lame 
rotanti ai gorilla meccanici 
e ai robot a pistoni; corde 
traditrici su cui vi dovrete 
arrampicare, gruppi di frec¬ 
ce avvelenate pronte a scat¬ 
tare contro di voi quando 
percorrerete i corridoi... In- 
somma un vero e proprio in¬ 
ferno. Riuscirete a farcela? 
Riuscirete a non lasciarvi 
abbattere dalle avversità e a 
raggiungere la meta? Se ce 
la farete, siete davvero in 
gamba, parola di esperto. 


Caricamento 

Inserire la cassetta nel regi¬ 
stratore, assicurarsi che sia 
completamente riavvolta, 
poi battere LOAD e premere 
RETDRN. Premere poi il ta¬ 
sto PLAY sul registratore. 
Viene caricato in macchina 
un primo programma di let¬ 
tura del programma vero e 
proprio. Quando vedete 
READY, battete RUN e pre¬ 
mete RETURN. Dark Tower è 
un gioco composto di più 
parti. Schermi supplemen¬ 
tari vengono letti dalla cas¬ 
setta diarante il gioco; la¬ 
sciate perciò la cassetta nel 
registratore e non riavvol¬ 
gete il nastro prima della 
fine. 
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Controlli 

I movimenti si possono con¬ 
trollare sia con un joystick, 
che dalla tastiera. 

I controlli da tastiera sono: 
D - Sale sulle scale 
K - Scende dalle scale 
E - Cammina verso sinistra 


P - Cammina verso destra 
Spazio - Salta 

Il joystick si può controlla¬ 
re da J0Y1 o da J0Y2. Per 
avviare il gioco, premere il 
tasto “0”, oppure il joystick 
verso l’alto. 

Altri comandi sono: 
RUN/STOP: Pausa nel gioco 




















COMMODORE: Ripresa del 
gioco 

Q: Fa ripartire il gioco da 
capo. 

Si noti che, alla fine di ogni 
partita, si ha la possibilità 
di cominciare dallo schermo 
iniziale, oppure dall’ultima 
stanza della partita prece¬ 
dente. Quando si sceglie 
quest’ultima opzione, i 
gioielli raccolti saranno co¬ 
munque persi. Per ripartire 
dal primo schermo premere 
il tasto “0” o il joystick ver¬ 
so l’alto. Per scegliere l’ulti¬ 
mo schermo della gara pre¬ 
cedente, premere il tasto “K” 
o il joystick verso il basso. 


Punteggio 

Per ogni gioiello raccolto so¬ 
no concessi 250 punti. Dei 
punti in omaggio (bonus) 
vengono concessi quando si 
è completata una stanza 
senza perdere una vita. Il 
“bonus” viene poi aggiunto 
nella stanza seguente. 

Il valore dei punti in omag¬ 
gio risulterà minimo quan¬ 
do si perde una vita o quan¬ 
do si esce da una stanza pri¬ 
ma di averla completata 
(ciò non si può evitare in un 
paio di punti del gioco). 

Le vite all’inizio sono 5. 


Suggerimenti 

Se si salta da un muro all’al¬ 
tro, premere prima il co¬ 
mando che fa camminare e 
poi, immediatamente dopo, 
quello del salto. Se si cade 
nel vuoto da molto in alto si 
perde la vita. Salti verso il 
basso da muri non molto al¬ 
ti sono invece permessi sen¬ 
za pericolo. 

La prima stanza è una delle 
più difficili per la presenza 
di vari automi a guardia dei 
gioielli. Sarà forse il caso di 
lasciare questa stanza verso 
la fine e, come prima mossa, 
salire sulla scaletta e passa- 
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re al piano superiore. Qui 
potrete esercitarvi sia al 
salto da un muro all’altro 
(sulla destra), sia al passag¬ 
gio dalla cima di una delle 
scalette laterali alla scaletta 
centrale in alto mediante 
l’uso della corda. Ricordate¬ 
vi che queste due corde vi ti¬ 
rano verso l’alto, per cui do¬ 
vrete saltare sgambettando 
prima di battere la testa 
contro il soffitto e perdere i 
sensi, un po’ di allenamento 
in questa specie di palestra 
vi renderà più sicuri negli 
schermi successivi. 
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Le corde sono una particola¬ 
rità divertente del program¬ 
ma. Alcune di queste sono 
ferme, ma portano verso 
l’alto o verso il basso, a se¬ 
conda del moto che si vede 
rappresentato. Altre invece 
oscillano e vanno prese al 
balzo. Naturalmente, sia che 
si salga su una corda ferma, 
o che si salti su una corda 
oscillante, non si deve sba¬ 
gliare l’uscita, per non fini¬ 
re addosso ad un difensore, 
o sulle frecce avvelenate o 
semplicemente spiaccicati 
sul duro pavimento. 

A volte scoprirete da soli dei 
trucchi per sopravvivere. 
Ad esempio, se dalla stanza 
in cui vi stavate allenando 
poco fa, passate nella stanza 
posta sulla destra, vedrete 
che, per riuscire a raggiun¬ 
gere il gioiello senza perde¬ 
re la vita, dovrete prima av¬ 
vicinarvi pian piano al gra¬ 
dino che sbarra all’inizio il 
corridoio, poi fare un salto 


senza avanzare, restando in 
tal modo agganciati al gra¬ 
dino con un piede. Di qui oc¬ 
corre aspettare che l’auto¬ 
ma che pattuglia la zona sia 
sceso verso il basso e stia ri¬ 
salendo verso l’alto. A que¬ 
sto punto dovrete cammina¬ 
re verso destra e fare un sal¬ 
to, e poi continuare a cam¬ 
minare fino in fondo al cor¬ 
ridoio senza fermarvi. Se i 
tempi sono calcolati giusti, 
riuscirete a superare il cor¬ 
ridoio e a non imbattervi in 
fondo nell’altro guardiano 
di pattuglia. Alla fine del 
corridoio portatevi sul gra¬ 
dino seguente con un salti¬ 
no, con un altro balzo in al¬ 
to prendete il gioiello e poi, 
con la stessa tecnica, per¬ 
correte il corridoio superio¬ 
re. Non rallentate la marcia 
sotto le frecce o sarete mor¬ 
ti. Quando uscirete dall’usci¬ 
ta in alto a sinistra, se non 
avrete perso la vita nel frat¬ 
tempo, otterrete un bonus. 















1 0 

P-1020 



20 

READ A : IF A--1 THEN SYS 

1 020 


30 

POKE P,A :P-P + 1 : GOTO 20 



1 00 

DATA 1 69,1 , 1 62,1 ,160,1 

32,186 

255 

1 1 0 

DATA 169,0,32,189,255 



1 20 

DATA 169,0,162,255,160 

255,32 

213,25 

1 30 

DATA 76,611,30,-1 




Ma non vogliamo rovinarvi 
il piacere di scoprire da soli 
tutti i trucchi di questo bel¬ 
lissimo gioco. Vi lasciamo 
quindi provare da soli l’emo¬ 
zione della scoperta. Buon 
divertimento! 
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80 DO 17 4C IO 
80 30 FD 80 08 
FF 29 20 DO 05 
DI 17 A9 FD 8D 
08 FF AO 08 FF 
08 A9 01 8D D2 

32 A9 FB BD 30 
FF AD 08 FF 29 
A9 01 85 39 A9 
FD BD 08 FF AD 
10 DO 05 A9 01 
60 A5 30 85 40 
41 A5 35 CD CB 
E6 41 20 25 2B 
C6 40 20 25 2B 
A5 30 FO 08 C6 
2B 20 BA 32 60 

40 C6 40 C6 40 

41 20 25 2B 20 
41 20 25 2B 20 
A5 3B 85 40 A5 

20 25 2B 20 BA 
20 25 2B 20 BA 
EO CD A9 19 DO 
19 80 CB 17 60 
DO 60 AD 9E 19 

40 OA AA BD B4 
BD 85 18 85 2C 
BC 19 91 2B 20 
3A AA DE EF 17 
DO 06 AE C8 19 
OA AA BD 86 39 
87 39 85 2C AO 
C5 40 DO 07 C8 

41 FO 00 A9 03 
4C 07 33 C8 A9 
A9 50 0D C7 17 
C6 17 20 E1 36 
DO 05 A9 01 20 
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>3338 8C 38 60 A5 3B 85 10 C6 

>3310 10 C6 10 C6 10 30 0A A5 

>33*B 31 85 11 20 25 2B 20 52 

>3350 33 60 85 12 29 10 FO 53 

>3356 A5 12 29 OF 18 69 01 C9 

>3360 OE DO 07 AD CB 19 8D CB 

>3368 17 60 85 12 29 02 FO 05 

>3370 18 65 12 85 12 B1 2B 29 

>3378 FO 05 12 91 2B 20 9D 2D 

>3380 A5 »0 20 68 31 *1 41 *5 

>3388 12 1A 90 02 09 01 AA BO 

>3390 8D 1B 91 2D 98 18 69 28 

>3396 A8 BD 95 1B 91 2D AD CE 

>33AO 19 91 2F 20 1F 20 A9 01 

>33*8 20 8C 38 60 CE E3 17 DO 

>33BO 68 A9 03 8D E3 17 A5 37 

>3388 CD 9C 19 90 03 20 90 2D 

>33C0 AE El 17 BD 19 1C AA BD 

>33C8 9D IB 8D E5 17 E8 BD F3 

>33DO 18 *8 AD BC 19 20 1A 3» 

>33D8 £8 CE E5 17 DO FO EE E* 

>3 3E0 17 AD El 17 C9 11 ^>0 05 

>33E8 A9 00 8D El 17 AA BD 19 

>33FO 1C AA BD 9D 1B 80 E5 17 

>33Ffi E8 BD F3 18 A8 BD 9D 13 

>3*00 20 1A 31 E8 CE E5 17 DO 

>3108 FO A5 37 CD 9C 19 90 03 

>3110 20 1F 2D 20 11 3* 20 7B 

>3«18 3« 60 65 IO 8A *8 AD C5 

>3120 17 85 11 A6 12 BD 5E 1C 

>3«28 85 2B BD 5F 1C 85 2C A5 

>3130 IO 91 2B 20 B2 36 E8 E8 

>3938 E8 E8 C6 91 DO E7 68 AA 

>3«10 60 AD E9 17 FO 05 C9 OA 

>3998 FO 01 60 A6 92 BD 60 1C 

>3950 OA A8 B9 8C 18 85 2B B9 

>3958 8D 18 85 2C BO 61 1C A8 

>3960 AD E9 17 FO 07 98 18 69 

>3«68 08 A8 A9 08 18 69 09 91 

>3970 2B E8 E8 E8 E8 CE C5 17 

>3978 DO D3 60 AD E9 17 C9 01 

>3980 FO 05 C9 OB FO 01 60 A6 

>3988 92 BD 60 1C OA A6 B9 8C 

>3990 18 85 2B B9 8D 18 85 2C 

>3998 BD 61 1C A8 AD E9 17 C9 

>39AO 01 FO 05 98 1 8 69 08 AB 

>39A8 AD 9E 19 91 2B E8 E8 E8 

>39BO E8 CE C5 17 DO D3 60 A6 

>3988 3A BD CD 1A C9 FF FO 60 

>39CO 85 90 A5 37 CD 9A 19 DO 

>39C8 03 20 90 2D A6 90 BD 82 

>39DO 1C 85 91 BD 83 1C OA AB 

>3908 B9 B9 18 85 2B B9 B5 18 

>39EO 85 2C BD 69 1C A8 BD 85 

>39E8 1C BD CE 17 AE EA 17 BD 

>39FO 03 1B 20 CC 36 91 2B A5 

>39F8 2B 18 6D DI 19 65 2B A5 

>3500 2C 69 00 85 2C CE CE 17 

>3508 DO E2 A5 90 18 69 03 85 

>3510 90 AA C6 91 DO BD A5 37 

>3518 CD 9A 19 DO 03 20 9F 2D 

>3520 60 A6 3A BD E8 1A C9 FF 

>3528 FO 60 85 «0 A5 37 CD 9B 

>3530 19 DO 03 20 90 2D A6 90 

>3536 BD BA 1C 85 91 BD BB 1C 

>35*0 OA A8 B9 B9 18 85 2B B9 

>35*8 B5 18 85 2C BD BC 1C A8 

>3550 BD BD 1C 8D CE 17 AE EB 

>3558 17 BD 07 1B 20 CC 36 91 

>3560 2B A5 2B 18 6D Di 19 85 

>3568 2B A5 2C 69 00 85 2C CE 

>3570 CE 17 DO E2 A5 *0 18 69 

>3578 03 85 90 AA C6 «1 DO BD 

>3580 A5 37 CD 9B 19 DO 03 20 

>3586 9F 2D 60 CE ED 17 DO 21 

>3590 A9 OF 8D ED 17 A9 FE 8D 

>3598 30 FD BD 08 FF AD 08 FF 

>35AO 29 80 DO OD A5 3A CD DC 

>35A8 19 FO 06 AD C8 19 80 EC 

>35BO 17 60 8C EE 17 OA A8 A5 

>3588 28 98 A5 2C 98 B9 99 19 

>35C0 85 2B B9 95 19 85 2C AO 

>35C8 00 A5 33 9A 9A *A 9A 18 

>35DO 69 80 91 28 C8 A5 33 29 

>35D8 OF 18 69 BO 91 2B 68 85 

>35EO 2C 68 85 2B AC EE 17 60 

>35E8 AD D9 17 85 33 *9 09 20 

>35FO B2 35 60 AD 05 17 85 33 

>35F8 A9 00 20 B2 35 AD D6 17 

>3600 85 33 A9 01 20 B2 35 AD 

>3608 D7 17 85 33 *9 02 20 B2 

>3610 35 60 AD 58 18 65 33 A9 

>3618 03 20 B2 35 AD 59 18 85 

>3620 33 A9 09 20 B? 35 AD 5A 

>3628 18 85 33 A9 05 20 82 35 

>3630 60 AD D8 17 85 33 A9 06 

>3638 20 B2 35 AD D9 17 85 33 

>3690 A9 07 20 B2 35 AD DA 1 7 

>3698 85 33 A9 08 20 B2 35 60 

>3650 AD 58 18 CD D5 17 90 19 

>3658 DO 27 AD 59 18 CD D6 17 

>3660 90 OA DO 1D AD 5A 16 CD 

>3668 D7 17 BO 15 AD D5 17 80 


>3670 58 18 AD 06 17 BD 59 18 

>3678 AD D7 17 8D 5A 18 20 12 

>3680 36 60 AO 00 B1 2B DO 09 

>3688 E6 2B DO 1A E6 2C 9C A6 

>3690 36 8D CE 17 E6 2B DO 02 

>3698 E6 2C 8A «8 20 A7 36 68 

>36AO AA CE CE 17 DO F9 60 OA 

>36A8 AA BD 59 19 98 BD 58 19 

>3680 98 60 98 «8 BD 60 1C 38 

>36B8 E9 09 20 68 31 68 98 18 

>36CO 7D 61 1C A8 AD CF 19 91 

>36C8 2F 68 A8 60 98 B1 2B CD 

>36DO 05 19 90 OB AD D6 19 DI 

> 36D8 2B 90 09 68 B1 2B 60 68 

> 36EO 60 F8 18 AD D7 17 6D C7 

> 36E8 17 8D D7 17 AD D6 17 6D 

>36FO C6 17 80 D6 17 AD D5 17 

>36F8 69 00 8D D5 17 D8 20 F3 

>3700 35 60 AE E9 17 BD EF 17 

>3708 FO 11 A9 00 8D D8 17 BD 

>3710 DA 17 A9 09 BD D9 17 20 

>3718 31 36 60 AD E7 17 FO 22 

>3720 AD D9 17 8D C6 17 AD DA 

>3728 17 8D C7 17 20 El 36 F8 

>3730 AD D9 17 18 69 09 8D D9 

>3738 17 D8 20 31 36 A9 03 20 

>3790 8C 38 60 AD E9 17 OA AA 

>3798 BD 86 39 85 2B BD 87 39 

>3750 85 2C A2 00 AO 00 BD OA 

>3758 18 80 CE 17 A5 2B 18 69 

>3760 03 85 2B 90 02 E6 2C E8 

>3768 BD OA 18 91 2B CE CE 17 

>3770 DO EA AE E9 17 AD E7 17 

>3778 38 FD EF 17 18 6D EB 17 

>3780 8D E8 17 AD E7 17 9D EF 

>3788 17 A9 00 8D D8 17 8D DA 

>3790 17 A9 09 8D D9 17 20 31 

>3798 36 60 29 AC 00 00 FF 9C 

>37AO 03 C8 00 E6 00 OB 81 90 

>37A8 00 01 05 18 09 OC 00 01 

>37B0 01 01 00 00 01 01 00 00 

>17B8 00 00 00 00 01 00 10 20 

> J7C0 «0 EF DF BF CO 38 05 39 

> 37C8 EE 38 D7 3» A? 00 20 01 

>3700 38 F.8 EO 03 DO F8 20 OB 

>3708 39 A9 FF 80 9E 37 A9 00 

>] 7E0 80 OC 37 8D 90 37 60 8A 

> 37K8 OA AA BD AO 37 8D 10 FF 

> J7F0 BD A' J7 80 OF FF 60 AD 

> il KB 11 FF 'D BE 37 80 11 FF 

>3800 60 AD U FF 3D CI 37 3D 

>3808 11 Fr 60 AD 11 FF 29 FO 

>3810 09 09 80 1 1 FF 60 BD Ab 

>381 9 37 9D 9A 37 BD A7 37 81) 

>3820 98 37 60 AD 9C 37 FO 1C 

>3829 20 66 38 CE 9B 37 DO 1M 

>3830 A9 00 6D 9C 37 A9 FF 8D 

> 38 38 9E 37 A2 01 20 01 38 A2 

>3840 02 20 0' 3» AO 9D 37 FO 

>3898 1C 20 1 9 38 CE 9B 37 DO 

>3850 19 A9 00 8D 9D 37 A9 FF 

>3858 80 9E 37 A2 01 20 01 38 

>3860 A2 02 20 01 38 60 18 AD 

>3868 OF FF 6D 9A 37 8D OF FF 

>3870 AD 10 FF 69 00 8D 10 FF 

>3878 60 38 AD OF FF ED 9A 37 

>3800 8D OF FF AD 10 FF E9 00 

>3588 8D 10 FF 60 80 9F 37 8A 

>3890 4B AD 9E 37 30 OF OA OA 

>3898 18 60 9F 37 AA BD AE 37 

> 36AO DO 03 4C BE 38 A9 00 8D 

> 3 SA 8 9C 37 8D 90 37 AD 9F 37 

> 38BO 8D 9E 37 OA AA BD C5 37 

>30»a AB BD C4 37 48 60 66 AA 

> 38CO 60 A2 00 20 E7 37 A2 02 

> 38C8 20 16 38 A9 01 8D 9C 37 

>3800 A2 02 20 F7 37 4C BE 38 

>38D8 A2 02 20 E7 37 A2 00 20 

> 38EO 16 38 A9 01 8D 9C 37 A2 

>38E8 01 20 F7 37 4C 9E 38 A2 

> 38FO OO 20 E7 37 A2 04 20 16 

>38F8 38 A9 01 80 9D 37 A2 02 

>3900 20 F7 37 4C BE 38 A2 01 

>3908 20 E7 J7 A2 06 20 16 38 

>3910 A9 01 BD 9C 37 A2 01 20 

>3918 F7 37 4C BE 38 «1 4C AB 

>3920 00 00 00 00 00 00 00 00 

>3928 00 00 00 00 00 00 00 00 

>3930 00 00 00 00 00 00 00 00 

>3938 00 00 00 00 00 00 00 00 

>3940 00 00 00 00 00 00 00 00 

>3948 00 00 00 00 00 00 00 00 

>3950 E3 3A 5F 3B C2 3D 37 3E 

>3958 CD 3E >E 3F E6 3B 56 3C 

>3960 CD 3C ab 30 E3 3A E3 3* 

>3960 E3 3A E3 3A E3 3A E3 3A 

>3970 E3 3A E3 3A E3 3A E3 3A 

>3978 E3 3* E3 3A E3 3A E3 3A 

>3980 E3 3A E3 3* E3 3* 4* 3B 

>3988 CE 3B 23 3E B4 3E 06 3F 

>3990 78 3F 3A 3C B3 3C 2« 3D 

>3998 B3 3D 4A 3B 4A 3B AA 3B 

>39A0 4A 38 MA 3B MA 3B 4A 3B 


>39A8 4A 3B «A 38 MA 38 MA 3B 

>3980 4A 3B AA 3B AA 3B «A 38 

>39B8 ma 38 4A 38 F2 39 1 6 3A 

> 39CO 25 3A 2D 3A 3C 3A 60 3A 

> 39C8 76 3A 8C 3A A2 3A BF 3A 

>3900 F2 39 F2 39 F2 39 F2 39 

> 39D8 F2 39 F2 39 F2 39 F2 39 

> 39E0 F2 39 F2 39 F2 39 F2 39 

>39E8 F2 39 F2 39 F2 39 F2 39 

> 39FO F2 39 05 1C 06 OF 02 04 

>39F8 04 04 01 08 OF 01 05 04 

> 3AOO 06 15 OA 07 01 08 04 OA 

> 3AOB OE OD 04 03 05 04 00 OA 

> 3A10 1 1 07 01 08 04 OC 02 09 

> 3A18 06 02 07 OA OA 02 1 4 04 

>3A20 06 01 05 04 04 01 OF 09 

>3A28 07 04 05 04 08 02 04 10 

> 3A 30 06 03 07 04 OE IB 02 02 

>3A3B 04 07 04 00 05 04 05 07 

>3*40 01 09 04 04 1 A 05 09 02 

>3A4S 09 04 06 OD OB OF 02 09 

> 3A50 04 OA 11 OB 02 01 09 04 

>3*58 OC OE 11 05 02 OB 04 02 

>3A60 03 04 01 04 04 05 04 02 

>3*68 10 1 1 05 01 08 04 04 IA 

>3A70 OA 06 03 08 04 08 03 1 0 

>3*78 OB OF 02 03 04 OE 11 OB 

>3*80 05 01 05 04 00 OB OD 07 

>3*88 03 06 04 02 03 1» OE 02 

>3*90 03 07 03 04 OB 02 05 04 

>3A98 06 04 08 09 09 07 02 04 

> 3AAO 04 08 04 OC 03 OE 04 OC 

> 3AA8 04 02 OF OF 06 03 OC 06 

> 3 * BO 02 13 03 04 04 OC 03 02 

>3AB8 16 04 07 01 06 04 OA 05 

>3*C0 OE 02 02 04 04 04 00 1B 

>3AC8 04 09 04 09 03 02 09 OC 

> 3ADO OF 04 04 04 04 1 1 10 OF 

>3AD8 03 04 04 08 05 06 06 03 

>3AEO 03 06 OE OE 01 06 OC 08 

>3AE8 08 OE 00 07 OC 00 08 OE 

> 3AFO 01 08 17 06 08 OE 00 09 

>3AF8 17 06 08 OE 01 OA 01 06 

> 380Q 08 OE 00 OB 01 06 08 OE 

>3808 03 OC 15 OA 08 OE 03 OD 

>3B10 15 OA 08 OE 03 OE 13 OC 

>3018 08 OE DO OF 13 08 00 OC 

> 3B20 00 10 1 3 08 00 OC 01 OE 

> 3B?8 04 06 08 OE 00 OF 04 06 

> 3B30 06 OC 03 12 1D 02 08 OE 

>3B30 02 01 1E 05 OA OE OF OE 

> 38 4 0 02 OA OE 01 00 OF 06 06 

>3B48 00 00 03 03 10 01 05 01 

>3B50 01 00 1E 01 02 00 10 1F 

> 3B58 00 00 00 1 1 1 F 00 00 1 1 

>3860 03 06 01 02 08 OA 03 06 

>3B68 1» OB 08 04 03 07 01 02 

> 3B70 08 Oa 03 08 01 05 08 04 

> 3B78 03 09 0' 05 08 04 03 OA 

>3B80 01 08 06 04 03 OB 01 06 

> 3B88 08 04 03 OC 01 OB OB 04 

> 3B90 03 OC 1D 02 08 04 03 00 

>3B9B 10 02 08 04 03 OE IA 05 

>3BA0 08 04 03 OF 1A 05 08 0* 

>3BA8 03 10 17 08 08 04 03 11 

>3»BQ 17 OS 08 04 Oj 12 01 02 

> 3BB8 38 04 03 12 1 4 OB 08 04 

>3BC0 CO 13 03 11 14 OC 00 01 

> 3BC8 00 1 0 06 06 CC 00 04 0' 

>3BD0 02 01 01 18 01 07 1D 01 

>3BD8 OD 02 01 02 00 10 00 00 

>3BE0 00 00 1 1 00 00 00 OB 01 

> 3BE8 06 Oi 02 08 OE 01 08 03 

> 3BF0 02 08 OE 01 OA 05 02 08 

>3BF8 OE 01 OC 07 02 08 OE 01 

>3C00 OE 09 02 08 OE 01 IO OB 

> 3C08 IO 08 OE 01 06 'A 02 00 

>300 OE 01 09 16 02 08 OE 01 

>308 OA 19 02 08 OE 01 OD U 

>3C20 04 08 OE 01 OD >0 02 08 

>3C28 OE 01 06 18 08 08 OE 02 

> 3C 30 OF OF 03 06 12 OF 02 06 

>3C 38 00 00 02 07 1 E 01 OA '6 

>3C40 01 04 CO 09 05 14 OC CO 

>3C48 OD 09 1 * OC 00 11 1F 00 

>3C50 00 00 12 1F 00 00 08 01 

>3C58 04 03 03 08 OC 01 05 09 

> 3C6O 02 08 OC 03 06 15 02 08 

>3C68 OC 01 07 01 02 08 OC 01 

> 3C 70 OA 12 02 08 OC 01 OB 07 

>3C78 03 08 OC 01 OE 1C 01 08 

>3C80 OC 01 OF 01 03 08 OC 00 

>3C88 03 00 03 04 06 OD 1D 05 

>3C90 06 12 !D 02 06 02 40 01 

> 3C98 OC OB OF 40 07 15 09 OF 

>3CA0 03 05 08 04 OB OC OC OA 

>3CA8 1I 04 OB OC OC OE IB OA 

>3CB0 OB OC OC 03 04 01 01 06 

>3CB8 14 01 08 01 01 03 CO «2 

> 3CC0 17 IA OC 00 11 00 00 00 

>3CC8 00 12 00 00 00 OC 01 06 

>3CD0 01 09 08 09 00 07 01 09 


>JCD 8 08 09 01 OA 01 09 08 09 

> 3CE0 00 OB 01 09 08 09 01 OC 

> 3 CE 8 01 09 00 09 00 OF 01 09 

>3CF0 08 09 01 06 16 09 08 09 

>3CF8 00 07 16 09 08 09 01 OA 

>3000 16 09 00 09 00 08 16 09 

> 3 DO 8 08 09 01 OE «6 09 08 09 

> 3D10 00 OF 16 09 08 09 00 00 

>3D18 02 AO 01 OD 10 OF 60 01 

>3D20 1 1 10 07 00 04 08 03.01 

>3D28 08 1E 01 OC IA 01 OD 01 

>3D30 01 05 CO 09 01 14 OC CO 

>3D38 09 05 14 OC CO 09 18 14 

>3040 OC 00 04 1F 00 00 00 05 

>3048 1F 00 00 06 01 06 01 03 

>3050 08 07 CO 09 01 19 14 OC 

>3058 03 OA 01 19 08 07 CO 13 

>3060 06 19 14 OC 01 06 1C 01 

>3D68 08 07 01 10 1C 03 08 07 

>3070 00 02 12 03 02 06 05 10 

>3078 OB 06 OB 60 01 07 05 07 

> 3D80 60 01 OB 06 07 60 01 OF 

>3D88 05 07 60 01 13 06 07 60 

>3090 01 17 05 07 60 OB 03 06 

>3098 07 60 OB 07 05 07 60 OB 

> 3DA0 OB 06 07 60 OB OF 05 07 

>3DA8 60 OB 13 06 07 60 OB 17 

>3DB0 05 07 00 01 OB IA 01 02 

>3DB8 00 04 00 00 00 00 05 00 

>3DC0 00 00 OB 03 05 1E 01 08 

>3DC8 09 03 06 1D 02 00 09 03 

>3000 07 1C 03 08 09 01 06 OB 

>3008 OA Od 09 00 07 OB OA 08 

>3DE0 09 01 09 01 03 08 09 01 

>3DE8 00 07 07 08 09 00 OE 07 

>3DF0 07 08 09 01 OD 12 07 08 

>3OF0 09 00 OE 12 07 08 09 01 

>3EOO 10 10 02 08 09 00 OA 00 

> 3E0B OF 06 06 OC 05 07 06 OC 

>3E10 19 07 06 12 OF 02 06 02 

>3E18 40 01 07 OA OF 40 01 17 

>3E20 OA or 00 02 04 01 01 00 

>3E20 10 01 04 00 0] ir 00 00 

>3E30 00 04 ir 00 00 00 oe ir 

>3E36 00 00 00 or ir oo oo 12 

> 3 E40 03 05 01 19 08 07 03 06 

>3E48 01 19 08 07 03 07 01 19 

>3650 08 07 03 OC 06 19 08 07 

>3E58 03 OD 06 19 08 07 03 OK 

>3E60 06 19 00 07 01 07 1C 01 

>3E68 08 07 01 09 1D 02 08 07 

>3£70 03 OB 1C 03 08 07 01 OE 

>3E78 03 01 08 07 01 10 01 02 

>3E80 08 07 03 12 01 03 08 07 

>3EB8 DO 01 06 14 OD OC DO 08 

>3E90 06 1 4 OD OC DO Or 06 1* 

>3E98 OD OC 00 02 06 14 00 OC 

>3EA0 00 09 06 14 00 OC 00 10 

>3EA8 06 1 4 00 OC 00 01 12 .1D 

> 3 EBO 02 06 00 00 01 06 1E 01 

>3EBB 04 00 03 00 00 00 00 04 

>3CC0 00 00 00 00 OE 00 00 00 

>3EC8 00 OF 00 00 00 06 01 07 

>3ED0 04 18 08 04 01 OD 04 16 

>3ED8 08 04 01 OA 01 02 08 04 

>3EEO 01 OA 1D 02 08 04 01 10 

>3E£8 01 02 08 04 01 10 1D 02 

>3EF0 08 04 00 04 00 OF 06 06 

>3EF8 06 OF 06 06 OC OF 06 06 

>3FOO 12 OF 02 06 00 00 04 07 

>3F08 01 01 07 1E 01 OD 01 01 

>3F10 OD 1E 01 02 00 11 1F 00 

> 3 F 18 00 00 12 ir 00 00 OB 01 

>3F20 05 ic 03 08 or 01 07 01 

>3F28 03 00 or 01 OB 1D 02 08 

>3F30 or 01 09 07 02 08 OF 01 

>3F38 00 07 02 08 OP 01 11 07 

>3F40 02 08 OF 01 OB 03 03 08 

>3F4B OF 01 or 03 03 o8 or 01 

> 3 F 50 ob oa 03 oa or ot or oa 

>3F58 03 08 or 01 10 1* 02 08 

>3F60 or 00 01 00 1D 05 06 03 

>3F68 40 01 10 OB OF 40 01 18 

> 3 F7 0 OB or 60 01 14 OB 07 00 

>3F78 03 06 01 01 06 IE 01 OF 

>3F80 15 01 02 00 11 00 00 00 

>3F8B 00 12 00 00 00 00 00 00 

> 3F90 00 00 00 00 00 00 00 00 

> 3F96 00 00 00 00 00 00 00,00 

>3FA0 00 00 00 00 00 00 00 00 

>3FA8 00 00 00 00 00 00 00 00 

> 3 FBO 00 00 00 00 00 00 00 00 

> 3FB6 00 00 00 00 00 00 00 00 

> 3FC0 00 00 00 00 00 00 00 00 

>3FC6 00 00 00 00 00 00 00 00 

> 3 FDO 00 00 00 00 00 00 00 00 

> 3FD8 00 00 00 00 00 00 00 00 

> 3 FEO 00 00 00 00 00 00 00 00 

> 3FE8 00 00 00 00 00 00 00 44 

>3FF0 41 52 AB 33 05 FF 8D 3E 

> 3FF8 rr AC AA r2 F6 FF FF 00 

>4000 
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BOWLING 



Il bowling non necessita 
certo di una presentazione: 
chi non ci ha mai giocato al¬ 
meno una volta nella vita? 
Certo è un gioco un po’ fati¬ 
coso, con quella grossa e pe¬ 
sante palla da lanciare, e il 
calcolo del punteggio non è 
dei più semplici... quindi 
perché non provare le stes¬ 
se emozioni comodamente 
seduto in poltrona davanti 
al televisore? 

A tutto pensa il computer, 
opportunamente program¬ 
mato con le istruzioni di 
“Bowling”. La semplicità di 
gioco, assieme alla velocità 
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ed alla simpatia, lo rendono 
una duratura sorgente di di¬ 
vertimento e svago. 

In breve le regole: hai a di¬ 
sposizione dieci prove, in o- 
gnuna delle quali hai due ti¬ 
ri per abbattere tutti e dieci 
i birilli del castello. Ogni bi¬ 
rillo abbattuto vale un pun¬ 
to, ma il tiro successivo ad 
uno strihe (l’abbattimento 
di tutti i birilli con un solo 
14 


1 REM*‘ABBASSA IL PUNTATORE DI FINE MEMO 
RIA** 

2 POKE56,60 :CLR 

3 REM**3 PAROLE DI MAX 6 CARATTERI** 

A REM**SE UNA SCRITTA INIZIA CON '*', VI 
ENE SPOSTATA DI MEZZO CARATTERE** 

5 A$(0)-"‘ BOW:A$(1)-" LING":A$(2)-”" 

6 REM**TRASFERISCE I CARATTERI DA ROM A 
RAM UTILIZZANDO IL MONITOR** 

7 COLORO,1:COLORA,1:SCNCLR 

8 PRINT"(BLACK}M(SH 0}(6 CUR.GIU}T D000 
DIFF 3EOO{2 CUR.GIU)X{2 CUR.GIU}G{SH 0 

ni" 

9 REM* «FORZA DEI CARATTERI NEL BUFFER DI 

TASTIERA** 

10 POKE239,5:POKE1319,19:FORT-0T03: POREI 
320+T,13 :NEXT:END 

11 SCNCLR 

12 REM* * ’ IM ' TIENE L’INDIRIZZO DI INIZIO 

DEI CARATTERI IN RAM** 

13 IM-15872:IS-3072:VOL 8 

1 A FORX“0TO2:H“-8*(Y>0)*Y 

15 L-LEN(A$(Y)):IFL=0THEN38 

16 Q-0:IFLEFT$(A$(Y),1) = "*"THENQ-3:L = L- 1 
:A$(Y)-RIGHT$(A$(Y),L) 

17 REM»*PLOTTA LA SCRITTA IN PRIMA RIGA* 
# 

18 COLORI , 1:CHAR,0,0,A$(Y) 

19 J-0:F0RX-0T0L-1:IFX>OTHENJ=J-2 

20 REM*«CONSIDERA IL SINGOLO CARATTERE** 

21 V«*PEEK ( IS + X ) 

22 REM**CONSIDERA 7 DEGLI 8 BYTE CHE COM 
PONGONO IL CARATTERE** 

23 FORA-0TO6 

2 A CR“PEEK(IM + V*8 + A) 

25 REM**DI OGNI BYTE CONSIDERA 5 BIT, QU 
INDI** 

26 REM* * LE PAROLE PLOTTATE SARANNO LARGH 
E 5 CARATTERI E NON 8** 

27 FORB-1T05 

28 REM* *SE IL BIT E' ZERO, CONSIDERA QUE 
LLO SUCCESSIVO** 

29 IF(CRAND2*B)=0THEN35 

30 COLORI,INT(RND(0)*15) + 2,INT(RND(0)*8) 

31 CX=7-B+X*8+J+Q 

32 C Y*=A +Y* 8+ 1 

33 REM**DISEGNA UNA PALLINA, CORRISPONDE 
NTE AD UN PIXEL DEL CARATTERE** 

3A CHAR,CX,CY,CHR$(209):SOUND 1 ,900 ,-5 

35 NEXTB 

36 NEXTA 

37 NEXTX 

38 NEXTY 

39 REM**CICLO DI RITARDO** 

AO FORT=1T05000:NEXT 

Al REM**RIPRISTINA I VALORI INIZIALI** 




4 2 COLORO,2:C0L0R1 ,1 : COLOR 4,15,6:SCNCLR 

43 POKE56,63:CLR 

100 REM**INIZIALIZZAZIONI** 

110 L( 1 )*3241 :L(2) = 3321 :L(3)=3401 :C$(1 ) = 
"{H0ME){11 CUR.GIU){8 CUR.DES}" 

120 C*(2)-C$<1)+"{13 CUR.DES}”:C$(3)=C$C 
2)■*■"{ 1 3 CUR . DES}” : C$ = C$ ( 1 ) 

130 C0=-1024:SC(1}=14 : SC(2) = 16:SC(3)=8:B 
0(1 ) = 14 :BO(2)-16 
1A0 BO(3)=8:VOL8 
150 REM**INTRODUZIONE** 

160 COLORO,1 : COLORA,1 :SCNCLR:CHAR,12,7," 
{ORANGEHRVS ON} B 0 W L I N G {RVS 
OFF)” 

170 REM**CHIEDE IL NUMERO E IL NOME AI G 
IOCATORI** 

180 CHAR,8,16, "(CYAN)QUANTI GIOCATORI (1 
-3) ?” 

190 GETA $:A=VAL(A$):IFA<10RA>3THEN190 
200 X$="I NOMI":IF A = 1THENX$="IL NOME” 

210 COLORO,9:COLOR4,9 :PRINT"(CLR)(3 CUR. 
GIU}{5 CUR.DES}{BLACK}INTRODURRE "X$ 
”:(5 CUR.GIU}" 

220 FORX-1TOA 

230 PRINTTAB(5)"(CUR.GIU}GIOCATORE”X; 

240 INPUTA$(X) 

250 REM**ACCORCIA IL NOME A 6 CARATTERI* 

» 

260 A$(X)=LEFT$(A$(X),6):NEXT:COLORO,SC( 

I ): COLOR4,BO(1) 

270 REM* «DISEGNA LA TABELLA DEI PUNTEGGI 
E LA PISTA DI GIOCO** 

280 PRINT”{CLR}(CUR.GIU}(8 CUR.DES}1 BLUE 
HRVS ON} 1 23456789 1 0 (2 SPC 
}{RVS OFF}(RED} ":PRINTTAB(9): 

290 FORX=1TO10:PRINT"(RVS ON}1(RVS 0FF}2 
";:NEXT:PRINT"(RVS 0N}3(RVS OFF}" 

300 PRINTTABC8)”(BLUE! (21 SH D}":PRINTT 
AB(9)"(CUR.GIU)(21 SH D}" 

310 ON-(A = 1 JG0T0340 

320 PRINTTAB(8)” (CUR.GIU}(21 SH D}";0N- 
(A = 2)G0T0 3 40 

330 PRINTTAB(8)" (CUR.GIU}(21 SH D}" 

340 PRINTLEFT$(C$ , 12 )" "A$(1)":" 

350 IFA>1THENPRINTTAB(14)"(CUR.SU}"A$(2) 

II . Il 

360 IFA>2THENPRINTTAB(27)"(CUR.SU}"A$(3) 

Il . Il 

370 PRINTLEFT$(C$,12)"(2 CUR.GIU}(BLUE} 
(38 SH F}” 

380 PRINT"(9 CUR.GIU} (38 SH E}" 

390 REM*»OGNI GIOCATORE HA 10 PROVE** 

400 FORQ*1TO10 

410 F0RZ9 = 1TOA: COLORO,SC(Z9):COLOR4,BO(Z 
9) 

420 REM**DISEGNA I BIRILLI** 


colpo) permette il raddop¬ 
pio del punteggio realizzato. 
Inoltre otterrai un bonus di 
dieci punti se realizzi uno 
strtke con un’unico tiro. 

Al termine dell’ultima prova 
(la decima) puoi avere uno 
o due tiri supplementari nel 
caso tu abbia realizzato in 
questa uno striie in due o in 
un unico tentativo. 
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Utilizzo 
e strategia 

Il gioco ammette fino a tre 
giocatori, rendendo la sfida 
più competitiva e diverten¬ 
te: di ogni giocatore devi da¬ 
re il nome. Il computer, per 
motivi grafici, riduce i nomi 
a soli sei caratteri, quindi è 
meglio dargli solo nomi bre¬ 
vi o sigle in modo da evitare 
troncamenti. 

Dopo questa fase introdutti¬ 
va, inizia il gioco vero e pro¬ 
prio: sullo schermo appare 
la situazione con il punteg¬ 
gio dei giocatori e il campo 
16 


«30 FOR X«1T010 :READV:POKEV , 81 :P0KEV+C0,6 
:NEXT:RESTORE 

«40 REM**AVVERTE A CHI TOCCA IL TIRO*» 
«50 PRINT"(HOMElTIRA: ":PRINT"{CUR.GIU 1( 
6 SPC}":PRINT”ICUR.SU)"A$(Z9) 

«60 J-0:G-0 

«70 REM**ATTENDE IL VIA PER IL LANCIO, L 
0 ESEGUE E DETERMINA I BIRILLI COLPI 
TI** 

«80 GOSUB770:GOSUB820:P=L(Z9):G0SUB1060: 
L < Z9 )-P 

«90 REM**ASSEGNA IL PUNTEGGIO** 

500 G0SUB1130 

510 0N-(L(Z9)/2-INT(L(Z9)/2))GOTO«60:REM 
**ALTRO TIRO SE I BIRILLI NON SONO T 
UTTI GIU'** 

520 IF(PEEK(L(Z9)-1)-«7ANDQ-10)=0THEN630 
530 REM* * IL GIOCATORE HA GUADAGNATO UN T 
IRÒ** 

5«0 PRINTLEFT$(C$,12)"(7 CUR.GIU}{CUR.DE 
S)(RED)"A$(Z9)", ANCORA UN TIRO!(BLU 
E)" 

550 REM* * PAUSA E PULISCE IL BUFFER DI TA 
STIERA** 

560 FORX=1T03000:NEXT:POKE239,0 
570 PRINTLEFT$(C$,12)"(7 CUR.GIU){2« SPC 
}" 

580 FORX*1T01OiREADV:POKEV,81: POKEV + CO,6 
:NEXT:RESTORE 

590 J-0:G0SUB770:G0SUB820:T(Z9)=T(Z9)+J: 
PRINTC$(Z9):T(Z9) 

600 K=J+«8:IFJ+PEEK(L(Z9)~1)-22«=10THENK 
-«7 

610 IFK=58THENK=152 

620 POKEL(Z9),K:POKEL(Z9)+CO,9:GOTO750 
630 U« s 0:IF(PEEK(L(Z9)-2) = 152ANDQ = 10)*OTH 
EN750 

6«0 REM**IL GIOCATORE HA GUADAGNATO DUE 
TIRI** 

650 PRINTLEFT$(C$,1 2 )"(7 CUR.GlU){CUR.DE 
S)(RED("A$(Z9)", ANCORA DUE TIRI!{BL 
UE)" 

660 FORX-1T03000:NEXT:P0KE239.0 
670 PRINTLEFT$(C$,12)”{7 CUR.GIU}{2« SPC 
}" 

680 L(Z9)-L(Z9)-1 

690 F0RX=1T010 :READV:POKEV,81 :P0KEV+C0,6 
:NEXT:RESTORE 

700 J=0:G0SUB770:GOSUB820:T(Z9)*T(Z9)+J 
710 K-J+176:IFK=186THENK«152:T(Z9)=T(Z9) 
-J*(U-0) 

720 PRINTC$(Z9);T(Z 9):P0KEL(Z9),K:POKEL( 
Z9)+CO,«:L(Z9)=L(Z9) + 1 
730 IFPEEK(L(Z9)“1) = 152THENFORX=1TO10 : RE 
ADV:POKEV,81:P0KEV+C0,6:NEXT:RESTORE 




740 U-U+1:ONUGOTO700,750 
750 NEXTZ9:NEXTQ 

760 G0T0970:REM**FINE DEL GIOCO** 

770 REM**MUOVE SU E GIU' LA PALLA E ATTE 
NDE CHE VENGA LANCIATA** 

780 N=3875:I=tO 

7 90 POKEN , 32 : N*=N + I : IFN<36720RN>3916THENI 
= -I 

800 P0KEN + C0,0:P0KEN,81 :GETA$ :ON-(A$ = "" ) 
G0T0790:RETURN 

810 REM**LA PALLA E' STATA LANCIATA** 

820 N = N + 1 

830 IFPEEK(N)O81THEN900 

840 Q2 = N : GOSUB930 : REM**HA COLPITO UN B.I R 
ILLO** 

850 S0UND1 ,H*10,1 :POKEN-1,32:POKEN + CO,0: 

POKEN,81 
860 FORW-1T03 

870 IFPEEK(N-39*W)=81AND(RND(0)>.1)THENQ 
2=N-39*W:GOSUB930 

880 IFPEEK(N+41*W)=81AND(RND(0)>.1)THENQ 
2=N+4l*W:G0SUB930 
890 NEXT 

900 S0UND1,H*10+1,1:H=H+1:P0KEN-1,32:P0K 
EN+CO,0:POKEN,8l 
910 IFH=36THEN950 
920 G0T0820 

930 REM**IL BIRILLO COLPITO VIENE CANCEL 
LATO** 

940 J = J + 1 :S0UND1 ,1 ,5 :P0KEQ2,32 :FORT = 1T05 
0 :NEXT: RETURN 

950 REM»*LA PALLA E’ ARRIVATA ALLA FINE 
DELLA PISTA** 

960 H=0:POKEN,32:POKEN-1,32:RETURN 
970 REM**FINE DEL GIOCO: VENGONO DATI I 
PUNTEGGI** 

980 PRINTC$;"(3 CUR.GIUHRVS ON}{BLACK}P 
UNTEGGI FINALI{CUR.GIU]{BLUE}" 

990 PRINTTAB(9)A$(1);T(1):IFA>1THENPRINT 
TAB(9)"{CUR.GIU)”A$(2);T(2) 

1000 IFA-3THENPRINT"{CUR.GIU}"TAB(9)A$(3 
)iT(3) 

1010 REM**PROPONE UN'ALTRA PARTITA** 

1020 PRINTTAB(8)"1RED}{CUR.GIU!ANC0RA (S 
/N) ?" 

1030 GETKEYA$ 

1040 IFA$="S"THENRUN100 
1050 SCNCLR:PRINT"CIAO !”:END 
1060 REM**CALCOLA QUANTI BIRILLI SONO RI 
MASTI IN PIEDI** 

1070 G=J:IFP/2<>INT(P/2)THENG=G+176 
1080 IFG=186THENG=152 
1 090 IFP/2-INT(P/2)THENG = G+ 48 
1100 IFG+PEEK(P-1)-224=1OTHENG=47 
1110 P0KEP,G:P0KEP+C0,9:IFG=152THENP=P»1 
: G*0 


di gioco. In alto a sinistra è 
mostrato il nome del gioca¬ 
tore cui spetta il prossimo 
tiro: attento a non fare uno 
striie per un tuo avversa¬ 
rio! 

Il campo è realizzato per il 
lungo, con i dieci Pirilli a de¬ 
stra, mentre a sinistra si 
muove la palla: devi preme¬ 
re un tasto per farla partire 
al momento giusto e ti assi¬ 
curiamo che la cosa non è 
assolutamente facile! 

Tratto da: 

“Il libro dei giochi 
per Commodore 16 e Plus/4” 
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1120 P-P + 1 -.RETURN 

1130 REM*“CALCOLA IL PUNTEGGIO** 

1 1 140 T ( Z9 ) =T ( Z9 ) + J 

1150 T(Z9)-T(Z9)-J*(PEEK(L(Z9)-2)-47) 

1160 T(Z9)-T(Z9)-10*(PEEK(£(Z9)-3)=97AND 
PEEK(L(Z9)-2)-152) 

1170 IFL(Z9)'12720RL(Z9)=13520RL(Z9)-193 
2THEN1220 

1180 T(Z9)-T(Z9)-J*(PEEK(L(Z9)-U)*152) 

1190 T(Z9)-T(Z9)-J*(PEEK(L(Z9)-3)-152) 

1200 T(Z9)=T(Z9)-J*(PEEK(LfZ9)-5)-152AND 
PEEK(L(Z9)“3)=152) 

1210 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-6)-152AND 
PEEK(L(Z9)-9)~152ANDPEEK(L(Z9)~2)=1 
52) 

1220 PRINTC$(Z9);T(Z9) 

1230 RETURN 

1 2 40 REM**DATI UTILIZZATI PER POSIZIONAR 
E I BIRILLI SULLO SCHERMO** 

1250 DATA3709.3798,3787,3789,3826,3828,3 
867,3869,3908,3999 


Guida 
all'input 
CI 6 

Norme per la 
battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift" e “CBM”, sono codifi¬ 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori¬ 
cino è codificato con >SH 
S <. Il numero dentro le pa¬ 
rentesi indica le volte che il 
tasto va premuto. 
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TABELLA DI CONVERSIONE 


(HOME).HOME 

( CLR }.PULIZIA SCHERMO 

(CUR.SU).CURSORE IN ALTO 

1CUR.CIU).CURSORE IN BASSO 

(CUR.DES).CURSORE A DESTRA 

(CUR.SIN).CURSORE A SINISTRA 

( 3PC ).SPAZIO 

! RVS ON ì.REVERSE ON 

(RVS OFF).REVERSE OFF 

[FLASH ON).FLASH ON 

(FLASH OFF)....FLASH OFF 

(INSTI.INSERT 

(BLACK).COL. NERO (CTRL + 1) 

(WHITEJ.COL. BIANCO (CTRL + 2) 

(RED).COL. ROSSO (CTRL + 3) 

{C YAN ).COL. CIANO (CTRL*9) 

(PURPLE).COL. PORPORA (CTRL*5) 

(GREEN).COL. VERDE (CTRL+6) 

(BLUE).COL. BLU (CTRL + 7 ) 

(YELLOW).COL. GIALLO (CTRL‘8) 

(ORANGE).COL. ARANCIO (CBM-M) 

(BROWN).COL. MARRONE. (CBM + 2 ) 

1YL-CREEN).....COL. GIALLO-VERDE (CBM+3) 

(PINK).COL. ROSA (CBM+9) 

(BL'-GRN).COL. BLU-VERDE (CBM*5) 

(LT.BLUE).COL. BLU CHIARO (CBM+6) 

(D.BLUE).COL. BLU SCURO (CBM+7) 

1LT.GREEN).COL. VERDE CHIARO (CBM»8) 

































CACCIA ALLA COPPIA 


5 DIMFO(6,5),CA(21),KJ(2 6),W(21 ) 

6 RI $* " { SH -}{2 SPC}(SH - } C 2 SPCHSH -}l 
2 SPCHSH - } { 2 SPC } { SH - } { 2 SPCHSH -} 
{2 SPC}{SH -}{2 SPC}{SH -}":R2$ ="(CBM 
Q}{2 SH * >{SH +}{2 SH *}{SH +}{2 SH *} 
{SH +}{2 SH * HSH + } {2 SH * } {SH + }{2 S 
H * HSH + H2 SH *){CBM W)" 

8 F0RT*1T026:KJ(T)=1:NEXT 

9 UU(1)«2:UU(2)*1.4 

10 PRINT"{CLR}" 

25 IFGQ-1THEN45 

29 RESTORE 

30 READA$:IFA$O"L"THEN30 
1)0 F0RT*1T021 :READW(T) : NEXT 
«5 GQ*0:RESTORE 

70 FORT*1T08:PU(T)*0:RE(T)=-1:RE$(T): 

NEXT 
80 KK*0 

100 PRINT"{CLR}{5 CUR.GIU}"CHR$(1 A) 

110 PRINTTAB(2)"{CBM A}{33 SH *){CBM Si" 
:PRINTTAB(2)"{SH -}"SPC{33)"{SH -}" 
120 PRINTTAB(2)"{SH -}{3 SPC)A{2 SPC)B{2 
SPC}C{2 SPC}D{2 SPC}E{2 SPC}F{2 SPC 
} G { 2 SPC ì H { 2 SPC } I { 2 SPC ) L { 2 SPCHSH 

130 PRINTTAB(2)"{SH -}"SPC(33)"{SH -}":P 
RINTTAB(2)"{SH -} M{2 SPC}N{2 SPC}0{ 
2 SPC}P{2 SPC}Q{2 SPC}R{2 SPC}S{2 SP 
C}T{2 SPC J U{2 SPC)V{2 SPCJZ {SH 
140 PRINT" {2 SPCHSH - } "SPC ( 33 ) " { SH 

PRINT"{2 SPC){CBM Z}{33 SH *){CBM X) 
11 

145 F0RT = 1T021 :CA(T)=0 :NEXT 

147 G0SUB1400 

150 FORT=0TO6:FORR=0TO5 

160 CA=INT(RND(1)*21+1):CA(CA)-CA(CA)+1: 

IFCA(CA)>2THEN160 
170 FO(T,R)=W(CA):NEXTR,T 

200 PRINT:PRINT:INPUT"IN QUANTI GIOCHIAM 
0 " ; Gl 

210 IFGI<10RG>8THENPRINT"{2 CUR.SU}":G0T 
0200 

220 FORT*1TOGI 

230 PRINT"NOME DEL GIOCATORE N."Tì:INPUT 
GI $ ( T ) 

240 IFLEN(GI$<T))>12THENPRINT"N0ME TROPP 
0 LUNGO, MAX.12 ":G0T0230 
250 NEXT 

500 PRINT"{CLR}" 

510 PRINTTAB(18)"{CBM A >{2 SH *}{CBM R}{ 
2 SH *}{CBM R){2 SH *}{C8M R}{2 SH * 

}{CBM R}{2 SH *}{CBM R}{2 SH *}{CBM 
R}{2 SH *}{CBM S)" 


Il programma chiede i nomi 
dei partecipanti (da 1 a 8) e 
quindi propone la scherma¬ 
ta centrale sulla quale si 
svolgerà tutta la parte cen¬ 
trale del gioco. Questa fase è 
caratterizzata da una gri¬ 
glia di 7 per 6 quadrati di 
lato e nella zona di schermo 
libera ci sono i nomi dei par¬ 
tecipanti con i relativi pun¬ 
teggi. 

Il lampeggio del nome indi¬ 
ca il turno delle giocate, 
mentre un piccolo cursore 
nell’angolo in alto a sinistra 
del primo quadrato della 
griglia aspetta di essere 
mosso in su e giù e a destra 
e sinistra con i tasti delle 
freccine. 
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Per vedere cosa c’è nascosto 
in un particolare quadrato, 
si deve portare il cursore su 
quel quadrato e quindi pre¬ 
mere il tasto RETURN. Se in 
due soli tentativi si riesce a 
scoprire una lettera dell’al¬ 
fabeto, si riceve un punteg¬ 
gio accompagnato da una 
musichetta di sottofondo e 
si può continuare con un 
nuovo tentativo, mentre la 
coppia scoperta rimane fis¬ 
sata sullo schermo, altri¬ 
menti un altro nome lam¬ 
peggia e la mano passa al 
giocatore successivo, men¬ 
tre i due caratteri appena 
scoperti scompaiono. 
Scoperte tutte le 21 coppie a 
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520 FORT-1T05:F0RK-1T02:PRINTTAB( 1 8)RI$ : 

NEXT:PRINTTAB(18)R2$:NEXT 
5 30 F0RT=1T02:PRINTTAB( 18)RI $ :NEXT 
5A0 PRINTTAB(18)"{CBM Z}{2 SH * 1{CBM E}( 
2 SH «HCBM E} {2 SH *Ì{CBM E} ( 2 SH « 
}{CBM E ì{2 SH *}(CBM E}{2 SH *}(CBM 
E)!2 SH *}{CBM X}" 

600 PRINT"(HOME)" 

610 F0RT-1T0GI 

620 PRINT:PRINTGI$(T);SPC(16-LEN(STR$(PU 
(T)))-LEN(GI$(T)));PU(T) 

640 NEXT 

650 CA-INT(RND(1)*GI+1) 

700 Z$ = "{HOMEJ":F0RT=1T0CA*2:Z$=Z$+"{CUR 
.GIU}NEXT:PRINTZ$ ;"{RVS ON}{FLASH 
ON ì " ; GI$ (CA ) ; " { FLASH 0FFl{RVS OFF} 1 ' 
710 X = 0: 7 = 0 :A = 0:B = 0 
720 P0KE31 71 +X*3*YM0*3,1 26 
735 FORT-1T050:NEXT 
740 GETA$:IFA$=CHR$(13JTHEN900 
750 IFA$«"{CUR.SU}"ANDY>0THENB=-1:G0T079 
0 

760 IFA$«"{CUR.GIU}"ANDY<5THENB=1:GOT079 
0 

770 IFA$»"{CUR.SIN}"ANDX>0THENA=-1:G0T07 
90 

780 IFA$-"{CUR.DES)"ANDX<6THENA-1 
790 P0KE3171 + X*3+Y*40*3.32 
800 X = X + A:Y = Y + B:A as 0:B = O 
810 GOT0720 

900 IFFI-1AND(C-XANDD=Y)THEN750 
905 IFF0(X,Y)=0THEN750 

910 FI«FI+1:FI(FI)-F0(X,Y):C(FI)-X:D(FI) 
* Y:IFFI“1THENC=X:D=Y 

913 KJ(FI(FI))-KJ(FI(FI))+.05 

914 TY C 4 + FI) = TY(2 + FI):TY(2 + FI)«TY(FI):TY 
(FI)=FI(FI) 

920 POKE3212+C(FI)*3+D(FI)*40*3,FI(FI) 
930 IFFI<2THEN750 

950 IFFI(1)<>FI(2)THENF0RT=1TO3000:NEXT: 

G0T01100 
960 GOT01040 
970 FORT-0T06:F0RR=0T05 
980 IFF0(T,R)»FI(1)THENF0(T,R)*0 
990 NEXTR.T 

1000 PU-INT((41-KK)/KJ(FI(FI))) 

1010 F0RT-3T06:IFTY(T)=FI(FI)THENPU-INT( 
PU/UU(INT(T/2.5)) + 1) 

1015 NEXT 

1020 PU(CA)-PU(CA)+PU 

1030 J$»"{HOME}":FORT«1TOCA‘2:J$=J$+"{CU 
R.GIU}":NEXT:PRINTJ$;SPC(16-LEN(STR 
$(PU(CA))))PU(CA) 

1035 GOT01090 

1040 RESTORE 

1050 A4-911 :G0SUB1410 




1070 G0T0970 
1 090 KK-KK+1: GOTO!105 

1100 POKE3212*C(1)*3+D(1)*3»HO,32 :POKE32 
12+C(2)»3+D(2)*3*40,32 
1105 POKE3171'•X*3 + X*40*3,32 
1110 PRINTZ$;GI$(CA) 

1120 IFFI(1)-FI(2)THEN1140 
1130 CA-CA+1:IFCA>GXTHENCA-1 
1140 FI-0:PU-0 
1150 IFKK-21THEN1190 
1160 GOT0700 

1190 F0RT-1T0GI:RE(GI)--1:NEXT 

1200 F0RT-1T0GI 

1210 FORTI-1T0GI-1 

1220 IFPU(T)>RE(T1)THEN1250 

1230 NEXTT1 

1240 GOTO1270 

1250 F0RT2-GI-1T0T1STEP-1 

1255 RE(T2+1)-RE(T2):RE$(T2+1)»RE$(T2) 

1260 NEXTT2 

1270 RE(T1)=PU(T):RE$(T1)=GI$(T) 

1280 NEXTT 

1290 PRINT"{CLR}" 

1300 Z$="{HOME}“:F0RT-1T011-GI:Z$-Z$+"{C 
Ur'.GIU}":NEXT:PRINTZ$;TAB( 12)"{RVS 
ONHFLASH ONHSH C}(SH LjlSH A} {2 S 
H SHSH X } {SH F } {SH I}(SH C}{SH A) 
(SH F} (SH IHSH N} {SH A } ( SH L}{SH E 
}{RVS OFF}" 

1310 K-11+GI:G0SUB1400 
1320 F0RT=GIT01STEP-1 

1330 Z$="{HOME}":F0RU=1TOK:Z$=Z$+"{CUR.G 
IU } 11 : NEXT 

1335 PRINTZ$;TAB(9)T"){2 SPC}"RE$(T);SPC 
(15 - LEN(RE$(T))-LEN(STR$(RE(T))))RE 
(T) 

1340 K=K-2:FORT1=1T0500:NEXT 
1350 NEXT 

1360 PRINT”(HOME}":F0RT=1T022:PRINT:NEXT 
:PRINT"{SH V}OLETE GIOCARE ANCORA ? 
(S/N)"; 

1370 GETA$:IFA$-"N"THENPRINT"{CLR}":END 

1380 IFA$="S"THENGQ®1:G0T08 

1390 G0T01370 

1400 RESTORE:V0L8:A4=0 

1410 READA$:IFA$<>"A"THEN1410 

1 420 READA1 ,A2: IFA 1=A4ANDA2 = 20THEN1450 

1430 S0UND2,Al,A2 

1440 G0T01420 

1450 RETURN 

2000 DATAL,1,2,3,4,5,6,7,8,9,12,13,14,15 
,16,17,18,19,20,21,22,26 
2020 DATAA,911,35,929,40,911,10,897,20,9 
11,10,881,40,911,20,911,10,897,20 
2025 DATA881,10,854,40,854,10,911,20,911 
,1 0,897,40,0,20 


disposizione, una musichet¬ 
ta annuncia Imminente 
classifica finale. 

Il gioco richiede grandi doti 
di memoria visiva. Ricorda¬ 
re la posizione in cui è com¬ 
parsa una certa lettera non 
è facile. La competizione fra 
più giocatori rende più viva¬ 
ce il gioco e fa scoprire ta¬ 
lenti nascosti in molti di 
noi. Però non è lecito bara¬ 
re! Se mi scrivo su un pezzo 
di carta le lettere che com¬ 
paiono nei vari quadretti, 
che gusto c’è poi a “indovi¬ 
nare”? 

Tratto da: 

Personal Software 
N. 28 Maggio/85 
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HDRAW 


so il basso), ¥ (verso sini¬ 
stra) e G (verso destra) di 
dieci punti per volta. 

I comandi accettati dal pro¬ 
gramma sono i seguenti: 


1 - Definisce l’inizio della li¬ 
nea da tracciare o un angolo 
del quadrato che dovrà con¬ 
tenere una figura ancora da 
specificare. 


Il programma HDRAW è sta¬ 
to studiato per presentarvi 
alcuni dei comandi di gestio¬ 
ne della grafica ad alta riso¬ 
luzione: potrete trasforma¬ 
re in realtà le immagini del¬ 
la vostra fantasia e creare 
disegni formati da linee, 
quadri, cerchi ed altre figure 
geometriche elementari. Per 
spostarvi dove volete si usa 
un piccolo cursore lampeg¬ 
giante. Con un po’ di pratica, 
oltre a permettervi di creare 
disegni interessanti e piace¬ 
voli, il programma vi darà 
gli strumenti adatti ad ap¬ 
profondire la conoscenza 
dei comandi grafici. 

Il programma è formato da 
vari moduli: inizializzazio- 
ne, box, cerchio, informazio¬ 
ni, cursore lampeggiante e 
subroutine singole. 

Ognuno di questi moduli 
svolge un compito particola¬ 
re e i commenti inseriti nel 
programma con le REM ser¬ 
vono ad illustrare l’uso. 

Il cursore viene spostato 
con i tasti con le frecce (di 
un pixel per volta) o con i 
tasti T (verso l’alto), V (ver- 
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10000 REM INIZIALIZZAZIONE************** 

10020 COLOR 0,2 : COLOR 1,1 

10030 TRAP 10080 

1 00*10 X-160 : Y = 100 : DC = 1 

10050 MENU$="12LBCP{HOME}*U " 

10060 GRAPHIC 2,1-IN : IN = 1 
10070 GOSUB 11000 
10080 GRAPHIC 0,1 
10090 PRINT ERR$(ER),EL 
10100 END 

11000 REM MODULO DI CONTROLLO*********** 
1 1 030 DO 

1 1 0110 GOSUB 1 5000 

11050 X=X-(A$="(CUR.DES}")+(A$="(CUR.SIN 
}" ) + 10*((A$ = "F")-(A$ = "G")) 

1 1 060 Y*Y-'(A$ = "{CUR.GIU} ") + (A$ = 11 (CUR.SU) 






")+10*( (A$ = "T")-(A'$-"V")) 

11070 X=X+319»((X>319)-(X<0)) 

11080 Y=Y+159*(<Y>159)-(Y<0)) 

11090 Z=INSTR(MENU$,A$) 

11100 0N Z GOSUB 16040,16050,16060,12000 
,13000,16070,16080,16090,14000 
11110 PRINT "{CLR}" 

11120 LOOP 

12000 REM BOX ************************** 
12030 R0=0 : GOSUB 16030 : INPUT "ROTAZI 
ONE (0-360):";R0 
12040 BOX DC,X1,Y1,X2,X2,R0 
12050 RETURN 

13000 REM CERCHIO ********************** 
13030 CX-X1+INT((X2-X1)/2) 

13040 CY-Y1+ INT((Y2-Y1)/2) 

13050 SA-0 : GOSUB 16030 : INPUT "INIZIO 
ANGOLO (0-360):";SA 

13060 EA=360 : INPUT "FINE ANGOLO (0-360 
) : " ; E A 

13070 RO-O : INPUT "ROTAZIONE (0-360):"; 
RO 

13080 DEG=2 : INPUT "GRADI FRA I SEGMENT 
I :"!DEG 

13090 CIRCLE DC, CX,CY,ABS(CX-X1),ABS(CY- 
Y1),SA.EA.RO,DEG 
13100 RETURN 

14000 REM INFORMAZIONI ***************** 
1 4030 GOSUB 1 6030 : PRINT "X -";X;"{5 SP 

cjy -";Y 

14040 PRINT "X1-";X1;"{7 SPC}Y1-";Y1 
1 4050 PRINT "X2-";X2;"{7 SPC)Y2-";Y2 
14060 PRINT "LARGHEZZA-";X2-X1j" PROFOND 
ITA'-";Y2-Y1 

14070 PRINT"PREMI UN TASTO"; : GETKEY Q$ 
14080 RETURN 

15000 REM****»*»»********** ************* 
15030 LOCATE X,Y 
15040 SR-RDOT(2) 

15050 A $ = "" : DO UNTIL A$<>"" 

15060 DRAM 1-SR.X.Y 

15070 FOR 1-1 TO 50 : NEXT 

15080 DRAW SR.X.Y 

15090 FOR I- 1 TO 50 : NEXT 

15100 GET A$ : LOOP 

15110 RETURN 

16000 REM SUBROUTINE SINGOLE************ 
16030 PRINT"(HOME)(20 CUR.GIU}"; : RETUR 
N 

16040 X1-X : Y1-Y : RETURN 

16050 X2-X : Y2-Y : RETURN 

16060 DRAW DC.X1.Y1 TO X2,Y2 : RETURN 

16070 DRAW 0,X,Y : PAINT ,X,Y : RETURN 

16080 SCNCLR : RETURN 

16090 DC-1-DC : RETURN 


2 - Definisce la fine della li¬ 
nea da disegnare o l’angolo 
opposto del quadrato. 

L - Fra i punti definiti con la 
pressione di 1 o 2 viene 
tracciata una linea nel colo¬ 
re corrente, che può essere 
sia di primo piano, che di 
sfondo. 

B - Viene disegnato un qua¬ 
drato usando i punti 1 e 2 
come angoli opposti. 

C - Viene disegnato un cer¬ 
chio in modo tale che vada a 
toccare i lati del quadrato 
ipotetico creato dai due 
punti. 

P - Il comando PAINT viene 
chiamato dalla posizione 
corrente del cursore. 
[HOME] - Il tasto HO- 
ME/CLR azzera lo schermo 
grafico (non occorre usare 
il tasto SHIFT). 

* - Tutte le figure e tutte le 
linee possono essere dise¬ 
gnate sia nel cursore di fon¬ 
do, che in quello di traccia¬ 
mento. Il colore di fondo vie¬ 
ne normalmente usato per 
cancellare ciò che già esiste 
sullo schermo. Ogni volta 
che si preme il tasto con l’a¬ 
sterisco, il colore visibile si 
trasforma da colore di fondo 
a colore di tracciamento o di 
primo piano, e viceversa. 

U - Premendo H si possono 
ottenere informazioni sullo 
stato attuale delle principali 
variabili, compresa la posi¬ 
zione del cursore, la posizio¬ 
ne definita per i punti 1 e 2 
la larghezza e la profondità 
del riquadro definito. 

Tratto da: 

“Commodore 16 Essenziali 
e Routine” 
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INTERRUPT 



Il programma INTERRUPT 
mostra come sia possibile, 
modificando opportunamen¬ 
te la routine di interrupt, fa¬ 
re svolgere al COMMODORE 
16 una funzione particolare 
“mentre” svolge una qual¬ 
siasi attività normale (ad 
esempio, l’esecuzione di un 
programma). Questo pro¬ 
gramma fa spostare un pic¬ 
colo aeroplano sulla scritta 
“INTERRUPT MODIFICATO” 
che viene posta sulla prima 
riga dello schermo, mentre 
il calcolatore è pronto a ca¬ 
ricare ed eseguire program¬ 
mi, fare calcoli e tutto ciò 
che può fare normalmente. 
Per realizzare il nostro sco¬ 
po “intercettiamo” la routi¬ 
ne di interrupt, facciamo le 
operazioni necessarie per 
muovere l’aeroplano e tor¬ 
niamo alla normale routine 
di interrupt. Questo pro¬ 
gramma mostra anche come 
puoi far muovere di un pun¬ 
to alla volta un carattere 
che si sovrappone ai carat¬ 
teri che incontra e che la¬ 
scia inalterati una volta che 
li ha superati. Il nostro ae- 
roplanino è lungo 8 punti: 
per descriverlo usiamo però 
16 byte di memoria per po¬ 
terlo far scorazzare di un 
punto alla volta. 

Per ricordare quali sono i 
due caratteri che sono co¬ 


perti dalla nostra figura u- 
siamo due buffer: memoriz¬ 
ziamo cioè nel buffer di “de¬ 
stra” il carattere “sotto la 
punta” e nel buffer di “sini¬ 
stra” quello “sotto la coda”. 
Fatti 8 passi avanti, ripor¬ 
tiamo la figura in posizione 
0 e facciamo avanzare i due 
caratteri di una posizione. A 
questo punto dovremo met¬ 
tere dove prima c’era la coda 
il contenuto del buffer di si¬ 
nistra, nel buffer di sinistra 
il contenuto del buffer di de¬ 
stra e nel buffer di destra 
ciò che era davanti alla fi¬ 
gura. 


Infine, per poter sovrappor¬ 
re rimmagine dell’aeropla- 
nino alle immagini dei ca¬ 
ratteri che esso “sorvola” te¬ 
niamo 16 byte in cui faccia¬ 
mo scorrere l’immagine 
dell’aeroplano. Per visualiz¬ 
zarlo poniamo nei byte ri¬ 
servati ai caratteri di D/CO¬ 
DE 126 e 127 l’immagine 
dell'aeroplano dopo aver 
eseguito la OR con i corri¬ 
spondenti byte delle descri¬ 
zioni dei caratteri i cui 
D/CODE sono contenuti nel 
buffer. 

Il programma BASIC IN- 
TERRUPT abbassa i puntato- 
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ri di memoria, pone in me¬ 
moria il programma in lin¬ 
guaggio macchina, pone la 
descrizione dei caratteri in 
RAM (verranno però usati 
solo i caratteri minuscoli), 
seleziona il set minuscolo, 


scrive il messaggio, crea 
una finestra video, lancia la 
routine in linguaggio mac¬ 
china e si autocancella. 

Tratto da: 

“Commodore 16 sempre di più’’ 


0 REM INTERRUPT 

10 P0KE56,59:POKE55,00:CLR 

11 FORI=0TO249:READA:POKE15104 + I,A :NEXT 
20 POKE65299,(PEEK(65299)AND3)+56 

30 POKE65298,PEEK(65298)AND251 
40 A $ = " {1 0 SPCJtSH IHSH N } (SH T}{SH E } { 
2 SH R}{SH U)1SH P}{SH Tl {SH M|{SH 0 
) (SH D) (SH IllSH F}{SH Il{SH CKSH A} 
{SH T}{SH 01" 

Al PRINTCHRÌ{1A7)CHR$(14)CHR$(8)A$ 

50 PRINT:PRINTCHR$(27)"T":SYS15120 : NEW 
1000 DATA8,12,20A , 255,255,20A,12,8 
1010 DATAO,0,0,0,0,0,0,0 
1020 DATAI 20,1 69,212,133,A,169,60,1 33 
1030 DATA6,160,0,132,3,132,5,177 
1OAO DATA3,1A5,5,200,208,2A9,230,A 
1050 DATA230,6,165,A,201,216,208,239 
1060 DATAI 69,0,1 A1 ,87,59,169,12,133 
1070 DATAA,169,0,133,3,173,0,12 
1080 DATA1A1 ,85,59,173,1,12,1 A 1 ,86 
10 90 DATA59,169,59,1 Al ,19,3,169,88 
1100 DATAI Al , 1 8,3,88,96,0,0,0 
1110 DATAI 73,87,59,201,8,2A0,87,238 
1120 DATA87,59,1 62,7,9A,0,59, 1 26 
1130 DATA8,59,202,16,2A7,160,7,162 
11A0 DATAI , 1 89,85,59,1 33,5,1 69,0 
1150 DATA133.6,6,5,38,6,6,5 
1160 DATA38,6,6,5,38,6,169,Ó0 
1170 DATA2A,101,6,133,6,177,5,202 
1180 DATA208,9,25,8,59,153,2A8,63 
1190 DATA76,1 61 ,59,25,0,59,153,2A0 
1200 DATA63,232,202,16,20A,136,16,199 
1210 DATA160,0,169,126,1A5,3,200,169 
1220 DATA127,1A5,3,76,66,206,169,0 

12 30 DATAI Al,87,59,162,7,189,8,59 
12A0 DATAI 57,0,59,169,0,1 57,8,59 
1250 DATA202,16,2A2,173,85,59,160,0 
1260 DATAIA5,3, 1 73,86,59,1 Al,85,59 
1270 DATA230,3,165,3,201,39,208,16 
1280 DATA169,0,133,3,173,85,59,1Al 
1290 DATA39,12,173,0,12,141,85,59 
1300 DATA160,1,177,3,1A1.86,59,76 
1310 DATA109,59 
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Questo è un programma che 
consente di gestire un ar¬ 
chivio di dati su cassetta. Il 
programma è stato costrui¬ 
to in modo che sia facilmen¬ 
te modificabile e adattabile 
alle proprie esigenze, sia 
cambiando i nomi dei campi, 
che il loro numero. 

Le operazioni necessarie 
per gestire un archivio di 
dati sono le seguenti: 

a) creazione ex novo dell’ar¬ 
chivio, 

b) aggiornamento dell’ar¬ 
chivio: 

bl) cancellazione di record, 
b2) aggiunta di nuovi re¬ 
cord, 

b3) modifica di record già 
esistenti, 

c) lista di tutto o parte 
dell’archivio. 

Queste operazioni sono in 
generale necessarie per qua¬ 
lunque archivio. 

Questo archivio è formato 
da record di 6 campi ciascu¬ 
no, relativi ad un’agenda di 
indirizzi. Creiamo e mante¬ 
niamo l’archivio in ordine 
alfabetico in base ai due pri¬ 
mi campi; in conseguenza i 
dati, nella fase di creazione 
iniziale dei file devono esse¬ 
re forniti rispettando tale 
ordine. Il programma rifiu¬ 
ta nominativi fuori ordine, 
come pure nominativi u- 
guali. 
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All’inizio viene proposto un 
menù per scegliere fra le tre 
funzioni principali: CREA¬ 
ZIONE, AGGIORNAMENTO, 
STAMPA. Viene chiesto 
quanti gruppi si vogliono 
trattare, per predisporre il 
dimensionamento delle va¬ 
riabili. 

La funzione di AGGIORNA¬ 
MENTO inizia trasferendo 
completamente in memoria 
il file esistente; poi si artico¬ 
la in tre fasi: 

1) modifica in memoria dei 
record già esistenti, 

2) cancellazione in memo¬ 
ria, ponendo spazi al posto 
del primo campo, nei record 
da eliminare dal file, 

3) aggiunta, durante la ri- 
scrittura del file, di eventua¬ 
li nuovi record, che devono 
essere forniti in ordine. 


Il programma è organizzato 
in modo che, dopo aver pre¬ 
so visione di un quadro vi¬ 
deo, devi premere un tasto 
per proseguire. La gestione 
del programma è molto sem¬ 
plice: 

— vengono evidenziati mes¬ 
saggi di richiesta sul video e 
devi rispondere, 

— quando il quadro video è 
fisso e la cassetta non è atti¬ 
va, per proseguire devi pre¬ 
mere un tasto, 

— per uscire dalle fasi di ri¬ 
chiesta dati devi rispondere 
con * al primo dato, 

— devi stare attento al cam¬ 
biamento del nastro o al suo 
riavvolgimento per non per¬ 
dere registrazioni. 

Tratto da: 

“Commodore 16 per te" 


I REM FILESEQ 

3 REM CREAZIONE E GESTIONE FILE SEQUENZI 
ALE 

5 REM RECORD IN ORDINE PRIMI DUE CAMPI 
7 PR = A: REM DN PERIFERICA DI STAMPA 
9 NF = A: REM NUMERO LOGICO FILE DI STAMPA 

II NC = 6: REM NUMERO CAMPI DEL RECORD 
13 REM VETTORI DESCRIZIONI E DATI 
15 DIMD$(NC),I$(NC) 

17 CH$=CHR$(13):SP$="{3 SPC}" 

19 REM DESCRIZIONI CAMPI 
21 DATA COGNOME, NOME,INDIRIZZO 
23 DATA CAP.CITTA',TEL. 

25 FORK*1TONC:READD$(K):NEXTK 
27 REM SCELTA OPERAZIONI 
29 PRINT"{CLRJ{2 CUR.GIU}{10 SPClSCELTA 
OPERAZIONE{2 CUR.GIUJ" 




31 PRINTTAB(IO)"1) CREAZIONE" 

33 PRINTTAB(IO)"2) AGGIORNAMENTO" 

35 PRINTTABC10)"3) STAMPA" 

37 PRINTTAB C10)"9 ) FINE(CUR.GIU}" 

39 GETKE7R$:R-VAL(R$) 

41 IFR<10R(R>3ANDR<>9)THEN39 
43 IFR-9THENGOSUB365:STOP 
45 PRINT"{CLR){4 CUR.GIU}{4 SPC1QUANTI R 
ECORD TRATTI IN TUTTO," 

47 PRI NT" {4 SPOSE IL FILE NON ESISTE 0, 

n 

49 PRINT"[4 SPOSE IL FILE ESISTE GIÀ'?" 
51 INPUT"{CUR.GIU INUMERÒ RECORD: "sN 
53 INPUT"CONFERMI (S/N): ";R$ 

55 IFR$<>"S"THEN45 

57 REM DIMENSIONAMENTO MEMORIA PER N REC 
ORD 

59 DIMMC$(N,NC) 

61 ON R GOTO 63,113.91 
63 REM 

65 REM CREAZIONE FILE 
67 GOSUB267 :GOSUB2 75:G0SUB2 8 1 
69 LC$ = "":LN$*"":K1*N:F0RK=1 TON 
71 G0SUB211 

73 IFSWOOTHENKI-K-1 :K-N:G0T085 
75 IFI$(1)>LC$THEN8l 
77 IFI$(1)*LC$THENIFI$(2)>LN$THEN8l 
79 G0SUB313:G0SUB319:G0T071 
81 LC*-I$(1):LN$«I$(2) 

83 G0SUB221 
85 NEXTK:CL0SE1 

87 PRINT"{CUR.GIU)FINITO CARICAMENTO{3 S 
PC)";K1;" RECORD" 

89 PRINT"(CUR.GIU)FILE: ";NF$:G0SUB319 : G 
OSUB365:RUN 
91 REM 

93 REM STAMPA FILE 

95 GOSUB285:GOSUB267:G0SUB275:GOSUB293 
97 PRINT#NF,"LISTA FILE ";NF$:PRINT#NF:P 
RINT/JNF 
99 GOSUB299 

101 PRINT#NF,I$(1)jSP$jI$(2) 

103 PRINT#NF,I$(3);SP$;I$(4)jSP$;I$(5);S 
P$; 1$(6) 

105 PRINT#NF:PRINT#NF 
107 IFFS064THEN99 

109 CL0SE1:CL0SENF:PRINT"{2 CUR.GIU)FINI 
TO LISTA" 

111 GOSUB365:RUN 
113 REM 

115 REM AGGIORNAMENTO FILE 
117 PRINT"(CLR){2 CUR.GIU)AGGIORNAMENTO 
FILE" 

119 PRINT"{2 CUR.GIUlMONTA NASTRO VECCHI 
0" 




121 G0SUB319:G0SUB275:G0SUB291:FORK-1TON 
123 FORJ«1TONC:INPUT#1,MC|(K , J ) :NEXTJ 
125 IFST-64THENCLOSE1:K1=K:K=N:NEXTK:GOT 
01 29 

127 NEXTK:PRINT"(CUR.GIU}FILE SUPERA NUM 
.MASS.REC;N: STOP 

129 PRINT"{CUR.GIUjLETTI ";K1;" RECORD": 
SW-0:N = K1 

131 PRINT"{2 CUR.GIUJVARIAZIONI S/N ":IN 
PUTRÌ 

133 IFR|<>"S"THEN14 9 
135 REM 

137 REM MODIFICA RECORD 
139 SW-0:G0SUB375:IFSW<>0THEN199 
1 4 1 SW = 0 :G0SUB387 : IFSWOOTHEN1 35 
.143 F0RJ = 3T0NC : 1$ ( J } = MC| ( K1 ,J):NEXTJ 
145 GOSUB357:GOSUB337 

147 F0RJ-3T0NC:MC$(K1 ,J)-I$(J):NEXTJ:GOT 
01 35 

149 PRINT"ICUR.GIUÌCANCELLAZIONI S/N ":I 
NPUTRI 

151 IFRIO"S" TRENI 63 
153 REM 

155 REM CANCELLAZIONE RECORD 
157 SW-0:GOSUB375:IFSWOOTHEN1 63 
159 SW*0 : GOSUB387 : IFSWOOTHEN1 55 
161 MCI(K1.1)«SP|:GOTOI55 
163 REM 

165 REM RISCRITTURA FILE 
167 SW-0:FF-0:K1«0:N1-1 

169 PRINT"{CUR.GIUJPREPARA NUOVO NASTRO" 
:G0SUB267 

171 GOSUB275:GOSUB281 

173 PRINT"{CUR.GIU}INSERIMENTI S/N ":INP 
UTR| 

175 IFR|O"S"THEN201 
177 REM 

179 REM INSERIMENTO NUOVO RECORD 
1 81 G0SUB21 3 : IFSWOOTHEN1 99 
183 IFFF-1THEN1 89 
185 G0SUB233 

187 IFU<>0THENU=0:G0T0193 

189 IFIK1 )>LC|G0T0195 

191 IFIIC1)“LC|ANDI|(2)>LN|THEN195 

193 G0SUB317:G0SUB319:G0T0181 

195 G0SUB221:LC|=I|(1):LNI=II(2) 

197 K1=K1 + 1 :GOTOI81 
199 IFFF-1THEN203 
201 GOSUB253 

203 PRINT"{CUR.GIUlFINITO AGGIORNAMENTO" 
205 PRINT"SCRITTI "jKIì" RECORD":CLOSE1 
207 PRINT"FI LE: ";NF| 

209 GOSUB319:GOSUB365:RUN 
211 REM 

213 REM LETTURA NUOVI DATI 




215 SW = 0 :GOSUB32 5:IFSW=1THENRETURN 
217 GOSUB337 
219 RETURN 
221 REM 

223 REM SCRIVE NUOVO RECORD SU NASTRO 
225 FORJ = 1 TONO 

227 IFLEN(I$(J))=OTHENI $(J) = " " 

229 P RI NT #1 ,I$(J);CH$; :NEXTJ: RETURN 
231 REM 

233 REM RICERCA POSIZIONE NUOVO RECORD 
235 U-0:FORK=N1TON:IFMC$(K,1)=SP$THEN249 
237 IFMC $(K,1)<I$(1)THEN2 47 
239 IFMC$(K,1 ) = I $(1 )ANDMC$(K,2)<I$(2)THE 
N 2 4 7 

241 IFMC$(K,1)-I$(1)ANDMC$(K,2)=I$(2)THE 
N245 

243 N1=K:K«N:NEXTK:RETURN 

245 U-1 :PRINT"DATI UGUALIGOSUB319 : GOTO 
243 

247 G0SUB303:K1-K1+1:LC$=MC$(K,1):LN$=MC 
$(K,2) 

249 NEXTK 

251 FF>= 1 : RETURN 

253 REM 

255 REM TERMINA SCRITTURA FILE 

257 IFN1-NANDFF-1THENRETURN 

259 FORK-N1TON:IFMC$(K,1)-SP$THEN263 

261 GOSUB305:K1«K1+1 

263 NEXTK: RETURN 

265 REM 

267 REM RICHIESTA PREPARAZIONE NASTRO 
269 PRINT"(CUR.GIU}MONTA NASTRO":GOSUB31 
9 

271 RETURN 
273 REM 

275 REM RICHIESTA NOME FILE 

277 INPUT"ICUR.GIUJNOME FILE ";NF$: RETUR 

N 

279 REM 

281 REM APERTURA FILE PER SCRIVERE 
283 OPEN1,1,2,NF$:RETURN 
285 REM 

287 REM APERTURA FILE DI STAMPA 
289 OPENNF,PR: RETURN 
291 REM 

293 REM APERTURA FILE PER LEGGERE 
295 OPEN1,1,0,NF$:RETURN 
297 REM 

299 REM LETTURA RECORD DA NASTRO 
301 FOR J- 1 TONO : INPUT #1 ,I$(«J):NEXTJ: FS-ST 
: RETURN 
303 REM 

305 REM SCRITTURA RECORD NASTRO DA VETTO 
RI 

307 F0RJ-1T0NC 




309 IFLEN(MC$(K,J))-OTHENMC*(K,J)-" " 

311 PRINTA1,MC$(K,J);CH$; :NEXTJ: RETURN 
313 REM 

315 REM MESSAGGIO FUORI ORDINE 
317 PRINT"(CUR.GIU}FUORI ORDINE "I$(1)SP 
$1$(2)tRETURN 
319 REM 

321 GETKEYAS:IFA$-""THEN321:REM ATTESA T 
ASTO 

323 RETURN 
325 REM 

327 REM INGRESSO NUOVI DATI 

329 F0RJ-1T0NC:I$(J)-" NEXTJ 

331 PRINT"{CLR}";:J-1:GOSUB351 

333 IFI$(1 ) = "*"THENSW = 1 :RETURN 

335 FORJ = 2TONC:GOSUB351 :NEXTJ: RETURN 

337 REM 

339 REM CONFERMA DATI E CORREZIONE 

391 PRINT"{CUR.GIU)CONFERMI S/N”:INPUTR$ 

393 IFR$="S"THENRETURN 

395 INPUT"QUALE CAMPO ";J 

396 IFJ<10RJ>NCTHEN395 

397 PRINTD$(J)" "; : I $(J)*" ":INPUTI$(J) 
399 GOSUB359 :G0T0339 

351 REM RICHIESTA CAMPO 

353 PRINTJi" ";D$(J) : " "iiI$(J)- n " 

355 INPUTI$(J): RETURN 
357 REM 

359 REM STAMPA DATI RECORD 
361 PRINT"{CLR}"; :F0RJ=1T0NC 
363 PRINTJ;" ";D$(J);" " : I$(J):NEXTJ:RET 
URN 
365 REM 

367 REM ULTIMO MESSAGGIO 

369 PRINTMCLR) {9 CUR . GIU ) RI AVVOLGI IL N 
ASTRO" 

371 PRINT"SE NECESSARIO" 

373 G0SUB319:RETURN 
375 REM 

377 REM RICHIESTA PRIMI DUE CAMPI 

379 PRINT"RISPONDI * PER{5 SPClUSCIRE” 

380 I$(1 )*"": I$(2) = "" 

381 PRINTD*(1); :INPUTlSt1 ) 

383 IFI$(1)-"«"THENSW-1:RETURN 
385 PRINTD$(2); :INPUTIS(2 ):RETURN 
387 REM 

389 REM RICERCA RECORD 
391 F0RK-1T0N 

39 3 IFMC $(K,1)-I$(1)ANDMC$(K,2) = I$(2)THE 
N901 

395 NEXTK:SW=1 

397 PRINT"{CUR.GIU)NON TROVATO ; I $ ( 1 ) ; S 
P $ ; I $ ( 2 ) 

399 G0SUB319:RETURN 

901 K1-K:K-N:NEXTK:RETURN 
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■ MS DOS 






ELENCO DEI TITOLI DISPONIBILI 


I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 

•SINCLAIR SPECTRUM cod. 017H 
•VIC 20 cod. 005H 
-COMMODORE 64 cod. 002H 
PC IBM cod. 018H 
•APPLE Ile cod. 003H 
•SHARP MZ80A cod. 014H 
LA PROGRAMMAZIONE cod. 004H 
•WORD STAR cod. 008H 
■UNIX cod. 009H 
-LOGO cod. 020H 
•MS-DOS cod. 019H 
•PROGRAMMI DI STATISTICA cod. 
015H 

•CP/M cod. 01 IH 
•PC-DOS cod. 012H 


-BASIC cod. 007H 
•ASSEMBLER Z80 cod. 016H 
•ASSEMBLER 6502 cod. 013H 
•COBOL cod. 001H 
•FORTRAN 77 cod. 010H 
•PASCAL cod. 006H 



Sxg- 


ritagliare (o fotocopiare) e spedire in busta chiusa a: 

GRUPPO EDFTORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


Prozzo unitario 


Totale 


I I Pagherò contrassegno al postino il prezzo indicalo piu L 3.000 per contributo (Isso spese di spedizione. 
Condizioni di pagamento con esenzione dei coninbuto spese di spedizione 

C) Allego assegno dolio Banca □ Allogo fotocopia dei versamento sul e/c n 11666703 a voi intestato 

N □ Allego fotocopia di versamento su vaglia postale a voi intestato 

Nome o Cognome 


Clip 


Citta 




OGNI TASCABILE COSTA L. 8.500 


Spazio riservato allo Aziende Si nchiede l'emissione di Iattura 
Partila IVA I 1 1. J_|_|_1_I_|_ I 1 1 _I 


ORDINF 
MINIMO 
l 50 000 




















MSX 

016 


VICI 20 


Spectrum 


UNA CASSETTA 
GIOCHI 


GRUPPO EDITORIALE 

JACKSON 


OGGI IN 5 VERSIONI 


064 

&C-I28 


DIVISIONE GRANDI ORSE 





